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tdio.h> 
tdarg . h> 
#include <strings.h> 



#include "ri.h" 
#include "ri_state.h" 
#include <GL/gl.h> 
#include <GL/glu.h> 

typedef struct CoordSystem { 
char name [20] ; 
RtMatrix xform; 
RtMatrix ixform; 




return RI_TRUE; 



} 



void frontface_set (void) 

{ 

if( insideoutO ) { 

glFrontFace (GL_CCW) ; 

} else { 

glFrontFace (GL_CW) ; 



char *PC) 
* (RtFloat 



if( CurAttributes->sides==l ) { 

/* glLightModelf (GL_LIGHT_MODEL_TWO_SIDE, GL_FALSE) ; */ 

/* glEnable (GL_CULL_FACE) ; */ 
} else if( CurAttributes->sides==2 ) { 

/* glLightModelf (GL_LIGHT_MODEL_TWO_SIDE,GL_TRUE) ; */ 

/* glDisable (GL_CULL_FACE) ; */ 
} else { 

fprintf (stderr, "illegal risides %d\n", CurAttributes->sides) ; 

} 

} 

RtVoid rilc_Sides (Rtlnt nsides) 

{ 

RtFloat *c; 

if( nsides!=l && nsides!=2 ) { 

fprintf (stderr, "illegal nsides %d\n", nsides) ; 
return; 

} 

c = (RtFloat *) dlist_append (CurDlist, rile_Sides, sizeof (RtFloat) ) ; 

if (c == NULL) 
return; 

c[0] = (RtFloat) nsides; 

CurAttributes->sides = nsides; 

} 

RtVoid riim_Sides (Rtlnt nsides) 

{ 

if( nsides!=l && nsides!=2 ) { 

fprintf (stderr, "illegal nsides %d\n", nsides) ; 
return; 

} 

CurAttributes->sides = nsides; 

if( CurAttributes->sides==l ) { 

/* glLightModelf (GL_LIGHT_MODEL_TWO_SIDE,GL_FALSE) ; */ 
/* glEnable (GL_CULL_FACE) ; */ 
} else if( CurAttributes->sides==2 ) { 

/* glLightModelf (GL_LIGHT_MODEL_TWO_SIDE,GL_TRUE) ; */ 
/* glDisable (GL_CULL_FACE) ; */ 

} 



RtVoid RiSides (Rtlnt nsides) 
{ 

JumpCur->Sides (nsides) ; 

} 

void rile_Orientation (unsigned char *PC) 

{ 

CurAttributes->orientation = * (RtToken *)PC; 



f rontf ace_set ( ) ; 

} 

RtVoid rilc_Orientation (RtToken orientation) 

{ 

RtToken t, *c; 

if( ! strcmp (orientation, "outside" ) ) { 

t = RI_OUTSIDE; 
} else if( ! strcmp (orientation, "inside" ) ) { 

t = RI_INSIDE; 
} else if( ! strcmp (orientation, "In" ) ) { 

t = RI_LH; 

} else if( ! strcmp (orientation, "rh" ) ) { 

t = RI_RH; 
} else { 

fprintf (stderr, "lc illegal orientation\n" ) ; 
return; 

} 

c = (RtToken * ) dlist_append (CurDlist, rile_Orientation, sizeof (RtToken) ) ; 

if (c == NULL) 
return; 

*c = t; 

CurAttributes->orientation = t; 

} 

RtVoid riim_Orientation (RtToken orientation) 

{ 

if( ! strcmp (orientation, "outside" ) ) { 

CurAttributes->orientation = RI_OUTSIDE; 
} else if( ! strcmp (orientation, "inside" ) ) { 

CurAttributes->orientation = RI_INSIDE; 
} else if( ! strcmp (orientation, "In" ) ) { 

CurAttributes->orientation = RI_LH; 
} else if( ! strcmp (orientation, "rh" ) ) { 

CurAttributes->orientation = RI_RH; 
} else { 

fprintf (stderr, "im illegal orientation\n" ) ; 
return; 

} 

f rontf ace_set ( ) ; 

} 

RtVoid RiOrientation (RtToken orientation) 
{ 

JumpCur->Orientation (orientation) ; 

} 

/*ARGSUSED*/ 

void rile_ReverseOrientation (unsigned char *PC) 

{ 

if( CurAttributes->orientation==RI_RH ) { 
CurAttributes->orientation = RI_LH; 



} if( CurAttributes->orientation==RI_LH ) { 
CurAttributes->orientation = RI_RH; 

} if( CurAttributes->orientation==RI_OUTSIDE ) { 
CurAttributes->orientation = RI_INSIDE; 

} if( CurAttributes->orientation==RI_INSIDE ) { 
CurAttributes->orientation = RI_OUTSIDE; 

} 

f rontf ace_set ( ) ; 

} 

RtVoid rilc_ReverseOrientation (void) 

{ 

dlist_append (CurDlist, rile_ReverseOrientation, 0 ) ; 

} 

RtVoid riim_ReverseOrientation (void) 

{ 

if( CurAttributes->orientation==RI_RH ) { 

CurAttributes->orientation = RI_LH; 
} if( CurAttributes->orientation==RI_LH ) { 

CurAttributes->orientation = RI_RH; 
} if( CurAttributes->orientation==RI_OUTSIDE ) { 

CurAttributes->orientation = RI_INSIDE; 
} if( CurAttributes->orientation==RI_INSIDE ) { 

CurAttributes->orientation = RI_OUTSIDE; 

} 

f rontf ace_set ( ) ; 



RtVoid RiReverseOrientation (void) 
JumpCur->ReverseOrientation ( ) ; 



/*ARGSUSED*/ 

void rile_Identity (unsigned char *PC) 

glLoadldentity ( ) ; 



RtVoid rilc_Identity (void) 

dlist_append (CurDlist, rile_Identity, 0 ) ; 

glLoadldentity ( ) ; 



RtVoid riim_Identity (void) 

glLoadldentity ( ) ; 



RtVoid Rildentity (void) 
JumpCur-Mdentity ( ) ; 



void rile_Transf orm (unsigned char *PC) 

{ 

RtMatrix *m = (RtMatrix *)PC; 
#if 0 

if( CurAttributes->transorient==RI_RH ) { 

CurAttributes->transorient = RI_LH; 
} else { 

CurAttributes->transorient = RI_RH; 

} 

#endif 

glLoadMatrixf ( (GLfloat *)(*m)); 

} 

RtVoid rilc_Transf orm (RtMatrix transform) 

{ 

RtMatrix *m; 

m = (RtMatrix * ) dlist_append (CurDlist, rile_Transf orm, sizeof (RtMatrix) ) ; 

if (m == NULL) 
return; 

bcopy (transform, m, sizeof (RtMatrix) ) ; 
glLoadMatrixf ( (GLfloat * ) transform) ; 

} 

RtVoid riim_Transf orm (RtMatrix transform) 

{ 

#if 0 

/* XXX hard-coded for the bikeshop and red */ 
if( CurAttributes->transorient==RI_RH ) { 

CurAttributes->transorient = RI_LH; 
} else { 

CurAttributes->transorient = RI_RH; 

} 

#endif 

glLoadMatrixf ( (GLfloat *) transform) ; 

} 

RtVoid RiTransf orm (RtMatrix transform) 
{ 

JumpCur->Transf orm (transform) ; 

} 

void rile_ConcatTransf orm (unsigned char *PC) 

{ 

RtMatrix *m = (RtMatrix *)PC; 
glMultMatrixf ( (GLfloat *)(*m)); 

} 

RtVoid rilc_ConcatTransf orm (RtMatrix transform) 

{ 

RtMatrix *m; 



m = (RtMatrix 

* ) dlist_append (CurDlist, rile_ConcatTransf orm, sizeof (RtMatrix) ) ; 

if (m == NULL) 
return; 

bcopy (transform, m, sizeof (RtMatrix) ) ; 
glMultMatrixf ( (GLfloat *) transform) ; 

} 

RtVoid riim_ConcatTransf orm (RtMatrix transform) 

{ 

glMultMatrixf ( (GLfloat *) transform) ; 

} 

RtVoid RiConcatTransf orm (RtMatrix transform) 
{ 

JumpCur->ConcatTransf orm (transform) ; 

} 

void rile_Perspective (unsigned char *PC) 

{ 

RtFloat fov = * (RtFloat *)PC; 

gluPerspective ( (GLdouble) fov, 1. ,1., 1000000.); 

} 

RtVoid rilc_Perspective (RtFloat fov) 

{ 

RtFloat *c; 

c = (RtFloat *) dlist_append (CurDlist, rile_Perspective, sizeof (RtFloat) ) ; 

if (c == NULL) 
return; 

*c = fov; 

gluPerspective ( (GLdouble) fov, 1. ,1., 1000000.); 

} 

RtVoid riim_Perspective (RtFloat fov) 

{ 

gluPerspective ( (GLdouble) fov, 1. ,1., 1000000.); 

} 

RtVoid RiPerspective (RtFloat fov) 
{ 

JumpCur->Perspective (fov) ; 

} 

void rile_Translate (unsigned char *PC) 

{ 

RtFloat *d = (RtFloat *)PC; 
glTranslatef (d[0] ,d[l] ,d[2] ) ; 

} 



RtVoid rilc_Translate (RtFloat dx, RtFloat dy, RtFloat dz) 

{ 

RtFloat *d; 

d = (RtFloat *) dlist_append (CurDlist, rile_Translate, 3*sizeof (RtFloat) ) ; 

if (d == NULL) 
return; 

d[0] = dx; 
d[l] = dy; 
d[2] = dz; 

glTranslatef (dx, dy, dz) ; 



RtVoid riim_Translate (RtFloat dx, RtFloat dy, RtFloat dz) 

glTranslatef (dx, dy, dz) ; 



RtVoid RiTranslate (RtFloat dx, RtFloat dy, RtFloat dz) 
JumpCur->Translate (dx, dy, dz) ; 



void rile_Rotate (unsigned char *PC) 

RtFloat *d = (RtFloat *)PC; 
glRotatef (d[0] ,d[l],d[2],d[3]); 



RtVoid rilc_Rotate (RtFloat angle, RtFloat dx, RtFloat dy, RtFloat dz) 

RtFloat *d; 

d = (RtFloat *) dlist_append (CurDlist, rile_Rotate, 4*sizeof (RtFloat) ) ; 

if (d == NULL) 
return; 

d[0] = angle; 
d[l] = dx; 
d[2] = dy; 
d[3] = dz; 

glRotatef (angle, dx, dy, dz) ; 

} 

RtVoid riim_Rotate (RtFloat angle, RtFloat dx, RtFloat dy, RtFloat dz) 

{ 

glRotatef (angle, dx, dy, dz) ; 

} 

RtVoid RiRotate (RtFloat angle, RtFloat dx, RtFloat dy, RtFloat dz) 
{ 

JumpCur->Rotate (angle, dx, dy, dz) ; 



} 



void rile_Scale (unsigned char *PC) 

{ 

RtFloat *d = (RtFloat *)PC; 

if( d[0]*d[l]*d[2]<0. ) { 

if( CurAttributes->transorient==RI_RH ) { 

CurAttributes->transorient = RI_LH; 
} else { 

CurAttributes->transorient = RI_RH; 

} 

f rontf ace_set ( ) ; 

} 

glScalef (d[0] ,d[l] ,d[2] ) ; 

} 

RtVoid rilc_Scale (RtFloat dx, RtFloat dy, RtFloat dz) 

{ 

RtFloat *d; 

d = (RtFloat *) dlist_append (CurDlist, rile_Scale, 3*sizeof (RtFloat) ) ; 

if (d == NULL) 
return; 

d[0] = dx; 
d[l] = dy; 
d[2] = dz; 

if( d[0]*d[l]*d[2]<0. ) { 

if( CurAttributes->transorient 

CurAttributes->transorient 
} else { 

CurAttributes->transorient 

} 

} 

glScalef (dx,dy,dz) ; 

} 

RtVoid riim_Scale (RtFloat dx, RtFloat dy, RtFloat dz) 

{ 

if( dx*dy*dz<0. ) { 

if( CurAttributes->transorient==RI_RH ) { 

CurAttributes->transorient = RI_LH; 
} else { 

CurAttributes->transorient = RI_RH; 

} 

f rontf ace_set ( ) ; 

} 

glScalef (dx, dy, dz) ; 

} 

/*ARGSUSED*/ 

RtVoid RiScale (RtFloat dx, RtFloat dy, RtFloat dz) 



==RI_RH ) { 
= RI_LH; 

= RI_RH; 



JumpCur->Scale (dx, dy, dz) ; 



/*ARGSUSED*/ 

RtVoid RiSkew (RtFloat angle, RtFloat dxl, RtFloat dyl, RtFloat dzl, 
RtFloat dx2, RtFloat dy2, RtFloat dz2) 

fprintf (stderr, "RiSkew unimplemented\n" ) ; 



/*ARGSUSED*/ 

RtVoid RiDeformationV (char *name, Rtlnt n, RtToken tokens [], RtPointer 
params [ ] ) 



fprintf (stderr, "RiDef ormation unimplemented\n" ) ; 



/*ARGSUSED*/ 

RtVoid RiDef ormation (char *name, ...) 

fprintf (stderr, "RiDef ormation unimplemented\n" ) ; 



/*ARGSUSED*/ 

RtVoid RiDisplacementV (char *name, Rtlnt n, RtToken tokens [], RtPointer 
params [ ] ) 

/* fprintf (stderr, "RiDisplacement unimplemented\n" ) ; */ 



/*ARGSUSED*/ 

RtVoid RiDisplacement (char *name, ...) 

/* fprintf ( stderr , "RiDisplacement unimplemented\n" ) ; */ 



#define ORIENT STACKDEPTH 256 

static RtToken orientstack [ORIENTSTACKDEPTH] ; 
static int norient = 0; 

/*ARGSUSED*/ 

void rile_Transf ormBegin (unsigned char *PC) 

{ 

glPushMatrix () ; 

orientstack [norient++] = CurAttributes->transorient; 

} 

RtVoid rilc_Transf ormBegin (void) 

{ 

dlist_append (CurDlist, rile_Transf ormBegin, 0 ) ; 

glPushMatrix ( ) ; 

orientstack [norient++] = CurAttributes->transorient; 



L_Transf ormBegin (void) 



{ 

glPushMatrix ( ) ; 

orientstack [norient++] = CurAttributes->transorient; 

} 

RtVoid RiTransf ormBegin (void) 
{ 

JumpCur->Transf ormBegin ( ) ; 

} 

/*ARGSUSED*/ 

void rile_Transf ormEnd (unsigned char *PC) 

{ 

glPopMatrix () ; 

CurAttributes->transorient = orientstack [ --norient ] ; 
f rontf ace_set ( ) ; 

} 

RtVoid rilc_TransformEnd (void) 

{ 

dlist_append (CurDlist, rile_Transf ormEnd, 0) ; 

glPopMatrix ( ) ; 

CurAttributes->transorient = orientstack [ --norient ] ; 

} 

void riim_Transf ormEnd (void) 

{ 

glPopMatrix () ; 

CurAttributes->transorient = orientstack [ --norient ] ; 
f rontf ace_set ( ) ; 

} 

RtVoid RiTransformEnd (void) 
{ 

JumpCur->Transf ormEnd ( ) ; 

} 

/* linked list of coordinate systems */ 
static CoordSystem *ricoord = NULL; 

extern void invert_matrix (RtMatrix a, RtMatrix m) ; 

RtVoid RiCoordinateSystem (RtToken space) 
{ 

CoordSystem *c; 

c = (CoordSystem *) malloc (sizeof (CoordSystem) ) ; 
strcpy (c->name, space) ; 

glGetFloatv (GL_MODELVIEW_MATRIX, (GLfloat *)c->xform); 
invert_matrix (c->xform, c->ixform) ; 

c->next = ricoord; 
ricoord = c; 

} 



static CoordSystem *lookup_coordsystem (RtToken name) 
{ 

CoordSystem *c = ricoord; 

while ( c!=NULL ) { 

if( strcmp (c->name, name) ==0 ) 

return ( c ) ; 
c = c->next; 

} 

return (NULL) ; 



RtPoint *RiTransf ormPoints (RtToken fromspace, RtToken tospace, 

Rtlnt npoints, RtPoint *points) 

{ 

int i; 

CoordSystem *f = lookup_coordsystem ( fromspace) ; 
CoordSystem *t = lookup_coordsystem (tospace) ; 

extern void transf orm_point (RtFloat *p, RtFloat *result, RtMatrix xform) ; 
RtFloat p [4] ; 

/* wc = fromspace . pointf = tospace . pointt 
pointt = tospaceinv . fromspace . pointf */ 

for( i=0; Knpoints; i++ ) { 

transf orm_point (points [i] , p, f->xform) ; 
transf orm_point (p, points [i], t->ixform) ; 

} 



return points; 

} 



